﻿Module GlobalVar
    Public currentDisplayImage As Image


    Public Function nextRandom(ByVal upbnd As Integer, ByVal lwrbnd As Integer)
        Return (CInt(Int((upbnd - lwrbnd + 1) * Rnd() + lwrbnd)))
    End Function

End Module
